; Bugs?: If you find a problem with this file, send the file and version
; information (from above) and the problem description to:
;
; Internet: apple.bugs@applelink.apple.com
; AppleLink: APPLE.BUGS
;
;
IF &TYPE('__BALLOONS__') = 'UNDEFINED' THEN
__BALLOONS__ SET 1
IF &TYPE('__TYPES__') = 'UNDEFINED' THEN
include 'Types.a'
ENDIF
IF &TYPE('__QUICKDRAW__') = 'UNDEFINED' THEN
include 'Quickdraw.a'
ENDIF
IF &TYPE('__MENUS__') = 'UNDEFINED' THEN
include 'Menus.a'
ENDIF
IF &TYPE('__APPLEEVENTS__') = 'UNDEFINED' THEN
include 'AppleEvents.a'
ENDIF
IF &TYPE('__TEXTSERVICES__') = 'UNDEFINED' THEN
include 'TextServices.a'
ENDIF
IF &TYPE('__TEXTEDIT__') = 'UNDEFINED' THEN
include 'TextEdit.a'
ENDIF
IF &TYPE('__ERRORS__') = 'UNDEFINED' THEN
include 'Errors.a'
ENDIF
IF &TYPE('__COACHMARKS__') = 'UNDEFINED' THEN
include 'CoachMarks.a'
ENDIF
IF &TYPE('__HIOBJECTTYPES__') = 'UNDEFINED' THEN
include 'HIObjectTypes.a'
ENDIF
; Cool for both System 7 and 8
IF FOR_SYSTEM7_AND_SYSTEM8_COOPERATIVE THEN
kTopLeftTipPointsLeftVariant EQU 0
kTopLeftTipPointsUpVariant EQU 1
kTopRightTipPointsUpVariant EQU 2
kTopRightTipPointsRightVariant EQU 3
kBottomRightTipPointsRightVariant EQU 4
kBottomRightTipPointsDownVariant EQU 5
kBottomLeftTipPointsDownVariant EQU 6
kBottomLeftTipPointsLeftVariant EQU 7
kBalloonVariantCount EQU 8
; typedef SInt16 BalloonVariant
; * remove the currently onscreen balloon, if any
;
; pascal OSErr HMRemoveBalloon(void )
;
IF ¨ GENERATINGCFM THEN
Macro
_HMRemoveBalloon
move.w #$0002,D0
dc.w $A830
EndM
ELSE
IMPORT_CFM_FUNCTION HMRemoveBalloon
ENDIF
ENDIF
; * Old API--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
IF FOR_SYSTEM7_AND_SYSTEM8_DEPRECATED THEN
hmBalloonHelpVersion EQU $0002 ; The real version of the Help Manager
kHMHelpMenuID EQU -16490 ; Resource ID and menu ID of help menu
kHMAboutHelpItem EQU 1 ; help menu item number of About Balloon Help...
kHMShowBalloonsItem EQU 3 ; help menu item number of Show/Hide Balloons
kHMHelpID EQU -5696 ; ID of various Help Mgr package resources (in Pack14 range)
kBalloonWDEFID EQU 126 ; Resource ID of the WDEF proc used in standard balloons
; Dialog item template type constant
helpItem EQU 1 ; key value in DITL template that corresponds to the help item
; Options for Help Manager resources in 'hmnu', 'hdlg', 'hrct', 'hovr', & 'hfdr' resources
hmDefaultOptions EQU 0 ; default options for help manager resources
hmUseSubID EQU 1 ; treat resID's in resources as subID's of driver base ID (for Desk Accessories)
hmAbsoluteCoords EQU 2 ; ignore window port origin and treat rectangles as absolute coords (local to window)
hmSaveBitsNoWindow EQU 4 ; don't create a window, just blast bits on screen. No update event is generated
hmSaveBitsWindow EQU 8 ; create a window, but restore bits behind window when window goes away & generate update event
hmMatchInTitle EQU 16 ; for hwin resources, match string anywhere in window title string
; Constants for Help Types in 'hmnu', 'hdlg', 'hrct', 'hovr', & 'hfdr' resources
kHMStringItem EQU 1 ; pstring used in resource
kHMPictItem EQU 2 ; 'PICT' ResID used in resource
kHMStringResItem EQU 3 ; 'STR#' ResID & index used in resource
kHMTEResItem EQU 6 ; Styled Text Edit ResID used in resource ('TEXT' & 'styl')
kHMSTRResItem EQU 7 ; 'STR ' ResID used in resource
kHMSkipItem EQU 256 ; don't display a balloon
kHMCompareItem EQU 512 ; Compare pstring in menu item w/ PString in resource item ('hmnu' only)
kHMNamedResourceItem EQU 1024 ; Use pstring in menu item to get 'STR#', 'PICT', or 'STR ' resource ('hmnu' only)
kHMTrackCntlItem EQU 2048 ; Reserved
; Constants for hmmHelpType's when filling out HMMessageRecord
khmmString EQU 1 ; help message contains a PString
khmmPict EQU 2 ; help message contains a resource ID to a 'PICT' resource
khmmStringRes EQU 3 ; help message contains a res ID & index to a 'STR#' resource
khmmTEHandle EQU 4 ; help message contains a Text Edit handle
khmmPictHandle EQU 5 ; help message contains a Picture handle
khmmTERes EQU 6 ; help message contains a res ID to 'TEXT' & 'styl' resources
khmmSTRRes EQU 7 ; help message contains a res ID to a 'STR ' resource
kHMEnabledItem EQU 0 ; item is enabled, but not checked or control value = 0
; ResTypes for Styled TE Handles in Resources
kHMTETextResType EQU 'TEXT' ; Resource Type of text data for styled TE record w/o style info
kHMTEStyleResType EQU 'styl' ; Resource Type of style information for styled TE record
kHMDisabledItem EQU 1 ; item is disabled, grayed in menus or disabled in dialogs
kHMCheckedItem EQU 2 ; item is enabled, and checked or control value = 1
kHMOtherItem EQU 3 ; item is enabled, and control value > 1
; Method parameters to pass to HMShowBalloon
kHMRegularWindow EQU 0 ; Create a regular window floating above all windows
kHMSaveBitsNoWindow EQU 1 ; Just save the bits and draw (for MDEF calls)
kHMSaveBitsWindow EQU 2 ; Regular window, save bits behind, AND generate update event
; Resource Types for whichType parameter used when extracting 'hmnu' & 'hdlg' messages
kHMMenuResType EQU 'hmnu' ; ResType of help resource for supporting menus
kHMDialogResType EQU 'hdlg' ; ResType of help resource for supporting dialogs
kHMWindListResType EQU 'hwin' ; ResType of help resource for supporting windows
kHMRectListResType EQU 'hrct' ; ResType of help resource for rectangles in windows
kHMOverrideResType EQU 'hovr' ; ResType of help resource for overriding system balloons
kHMFinderApplResType EQU 'hfdr' ; ResType of help resource for custom balloon in Finder